10 DEFINT A-Z:PRINT "Loading...";
20 DIM G(2966):VSEG=VARSEG(G(0)):IF VSEG=0 THEN DEF SEG ELSE DEF SEG=VSEG
30 BLOAD "ZSJS.PIC",VARPTR(G(0)):DEF SEG
40 PAT$="":FOR I=0 TO 7:READ C:PAT$=PAT$+CHR$(C):NEXT I
50 DATA 254,2,250,138,186,162,190,128
60 KEY OFF:CLS:SCREEN 2:LOCATE 1,1,0
70 LINE (0,0)-(639,199),1,B: PAINT (10,15),PAT$
80 LINE (160,20)-(479,180),0,BF
90 LINE (160,20)-(479,180),1,B: LINE (162,22)-(477,178),1,B
100 PUT (320-G(0)/2,100-G(1)/2),G
110 WHILE INPUT$(1) = "": WEND
120 SCREEN 0: LOCATE ,,1: CLS
130 END

